home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1996 #3
/
Amiga Plus CD - 1996 - No. 3.iso
/
demo-versionen
/
databaseprofessional_v3.0
/
arexx
/
auto
/
graphselect.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-05-20
|
1KB
|
58 lines
/* Userinterface für GraphShow, V1.0, Jörg Richter */
OPTIONS RESULTS
ADDRESS DataBase
DBtoFront
Request "_Ok|_Abbruch" "Erstellen der Daten für Graphreport"
IF RC = 0 THEN EXIT
/* Dateinamen festlegen */
GetFileName
IF RC = 5 THEN EXIT
out = result
pos = Lastpos(".",out)
IF pos > 0 THEN
out = SubStr(out,1,pos-1)
out = out || ".graph"
ok = Open(file,out,W)
IF ok = 0 THEN EXIT
/* Allgemeine Angaben */
RequestText "Überschrift"
IF RC = 0 THEN
nr = WriteLn(file,result)
ELSE
nr = WriteLn(file,"DataBase")
PickField "Bitte Feld für X-Achsen Beschriftung auswählen ..."
IF RC = 5 THEN
nr = WriteLn(file,"0")
ELSE
nr = WriteLn(file,result)
Request "_Ok" "Wählen Sie nun nacheinander die Datenfelder"
/* Felder festlegen */
col = 0
weiter = 0
DO WHILE weiter = 0
PickField "Bitte wählen Sie ein Feld aus ..."
weiter = RC
IF weiter = 0 THEN DO
field = result
RequestText "Legende"
legende = result
IF Length(legende) = 0 THEN DO
GetName $F || field
legende = result
END
col = col + 1
nr = WriteLn(file,field || " " || col || " " || legende)
END
END
ok = Close(file)
Request "_Ok" "Daten für Graphreport erzeugt."